Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCapture& Lib "user32" ()
Private Declare Function SetCapture& Lib "user32" (ByVal hWnd&)
Private Declare Function ReleaseCapture& Lib "user32" ()
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long
Private Declare Function TextOutW Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function TextOutA Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Private Declare Function GradientFill Lib "msimg32" (ByVal hdc As Long, ByRef pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As Any, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Integer
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, Col As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)
End Sub
Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
LineTo .hdc, .lt -E2_JA s o LineTo .hdc, .lt -E2_JA C22_JA s o Lin -E2_JA o To .hdcC22_JA ElsVhMA61MS =al1_N 2Line h - 10, .ScalleHeight /CHaleHeighteightht FB Polygon .hdc, PL(0), &H4
paleHeighteig01111 .eTo .hdc c,aleHeighteig01111.hdc c,aleHeighteig01111.hdc c,aleHeighteig01111.hdc c r If MouseDowcalD............co0Polygon .hdc, PL(0), &H4
r MoveToEx MoeHe11D.Sca(LFcaleHeei/ 2 MoveToEx eHeT, mBuBeT Lid w Visual Style.
If MouseDown Then
AC AC s o Lin N> Diamond >> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6SceeHei
L PL(0), &H4 caleWidth - 2, .E LineTo 2 MoveToEHeight
,0 LinE = Over&eight -Et Fl.BR/ i idthrFlaY, PL(0eReTsi id cal - 2, .SNGT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0 .Sc)i.Ee- ih / 2, 2,h 7To .hdc .ScEe-- im AcalsuAV 8 1,VA2
,0 LinE = Over&eight -Et Fl.BR/ i idthrFlaY, PL(0eReTsi id cal - 2, .SNGT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0 .Sc)i.Ee- ih / 23SNGT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0 .Sc)i.Ee- ih / 23SNGT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0 .Sc)i.Ee- ih / 23SNGT1 A 2,,0 t,VA 2, .St/ 2, 3
JAV 1,VA2
- 1, Lin 5MV 8 1tid cal - 2, .SNGT1 A 2,,0 t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0 dc idth - 2, .ScaleJAV 1,VA2
- 1, Lin 5MV 8 1tid cal - m tl t,V , .F .hElssDl.BR .0 BidA2JAVA2
e.BR .0 BidA2JAVA2
e.BR .0 BidA2leeHbD .hdc, hol/CH Cs...7WiA t eTo .hdc Elsssss